home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A)[a].po / BASIC.COPY.bas < prev    next >
BASIC Source File  |  1996-12-24  |  458b  |  2 lines
  1. 10 D$ =  CHR$(4):V$ = D$ +"VERIFY":L1 = 48825:L2 = 48826:A$ = ",A$4000,T": FOR I = 0 TO 10: READ J: POKE 768 +I,J: NEXT I: INPUT "SOURCE:";F1$: PRINT V$F1$:TY =  PEEK(48824):A1 =  PEEK(L1):A2 =  PEEK(L2): INPUT "DESTINATION:";F2$
  2. 20  PRINT D$"CREATE"F2$",T"TY: PRINT D$"BLOAD"F1$A$TY:L =  PEEK(48857) + PEEK(48858) *256: PRINT D$"BSAVE"F2$A$TY",L"L: PRINT V$F2$: POKE L1,A1: POKE L2,A2: POKE 48820,7: CALL 768: END : DATA 169,195,32,112,190,144,3,76,9,190,96